The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/pc/pb/profile.dir/00006_Script_#overview rewind

Text File | 1997-07-29 | 1KB | 44 lines

global over_paused
on mousedown
  --  put the puppet of sprite the clickon
  set the castnum of sprite the clickon = cast "rewind down"
  updatestage
  --  set over_paused = FALSE
  set gQTchannel = 3
  set theOriginalRate = the movierate of sprite gQTchannel
  set the movierate of sprite gQTchannel = 0
  --  puppetsprite 3, true

  if the shiftDown then set jumpDistance = 1
  else set jumpDistance = 120 -- 2 seconds' worth per click

  set themovietime = the movietime of sprite gQTchannel
  set the movietime of sprite gQTchannel = themovietime - jumpDistance

  updatestage

  if the stillDown then
    set currJumpBackDist = currJumpBackDist * 1.1 -- linear speedup
    repeat while the stillDown
      set themovietime = the movietime of sprite gQTchannel
      set jump = themovietime - integer(currJumpBackDist)
      if jump < 0 then
        set the movietime of sprite gQTchannel = 0
        updatestage
        exit repeat
      else
        set the movietime of sprite gQTchannel = themovietime  -  integer(currJumpBackDist)
        set currJumpBackDist = currJumpBackDist + 1
      end if
      updatestage
    end repeat
  end if

  set the movierate of sprite gQTchannel to theOriginalRate
  set the castnum of sprite the clickon = cast "rewind"
  updatestage
end

on mouseup
  updatestage
end